home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 43 / Mac Magazin and MacEasy Magazine CD - Issue 43.iso / Software / Mobiles Büro / Newton / Newton GPS / GPS Map Lite 2.0b ƒ / MPS-Mac / Map Template 1.5 / Project.txt < prev   
Text File  |  1997-07-09  |  2KB  |  47 lines
  1. //////////////////////////////////////////////////////////////////////
  2. // Map Template for Map Preparation Package version 1.5             //
  3. //                                                                  //
  4. // Copyright  ©1995-97                                              //
  5. // Gerd Staudenmaier, Software Development & Marketing              //
  6. // Friedrichshafener Str. 24 b                                      //
  7. // D-88090 Immenstaad, Germany                                      //
  8. // e-mail: gerds@micronet.de                                        //
  9. // all rights reserved !                                            //
  10. //                                                                  //
  11. // IMPORTANT !!!                                                    //
  12. // You may freely use this map template for use with "GPS Map" and  //
  13. // "GPS Map Lite" only. All other applications need the written     //
  14. // permission of the author!                                        //
  15. //////////////////////////////////////////////////////////////////////
  16.  
  17. CONSTANT C_SCREEN_RES := 85; // MP1xx screen resolution in dots per inch
  18.  
  19.  
  20. DEFCONST ('SetOffset, FUNC (BoundsFrame, dX, dY)
  21.  BEGIN
  22.   BoundsFrame.left   := BoundsFrame.left + dX;
  23.   BoundsFrame.top    := BoundsFrame.top + dY;
  24.   BoundsFrame.right  := BoundsFrame.right + dX;
  25.   BoundsFrame.bottom := BoundsFrame.bottom + dY
  26.  END);
  27.  
  28.  
  29. DEFCONST ('calcBounds, FUNC (TilesArray)
  30.  BEGIN
  31.   LOCAL Bounds := {left: 0, top: 0, right: 0, bottom: 0};
  32.   FOR I := 0 TO Length (TilesArray) - 1 DO BEGIN
  33.    IF (TilesArray[I].bounds.left < Bounds.left)
  34.       THEN Bounds.left := TilesArray[I].bounds.left;
  35.    IF (TilesArray[I].bounds.top < Bounds.top)
  36.       THEN Bounds.top := TilesArray[I].bounds.top;
  37.    IF (TilesArray[I].bounds.right > Bounds.right)
  38.       THEN Bounds.right := TilesArray[I].bounds.right;
  39.    IF (TilesArray[I].bounds.bottom > Bounds.bottom)
  40.       THEN Bounds.bottom := TilesArray[I].bounds.bottom
  41.   END;
  42.   RETURN Bounds
  43.  END);
  44.  
  45.  
  46. // end of project file
  47.